-- file: ch04/Plus.hs
a `plus` b = a + b

data a `Pair` b = a `Pair` b
  deriving (Show)
